home *** CD-ROM | disk | FTP | other *** search
- ;Microsoft EQU 1
- ;Lattice EQU 1
- ifndef Microsoft
- ifndef Lattice
- if2
- %out
- %out ERROR: You have to specify "/DMicrosoft" OR "/DLattice" on the
- %out MASM command line to determine the type of assembly.
- %out
- endif
- end
- endif
- endif
-
- ifdef Microsoft
- X EQU 4
- DOSSEG
- .MODEL SMALL
- else
- INCLUDE DOS.MAC
- SETX
- endif
-
- GET_DS_SEG MACRO X
- ; MOV AX, SEG X
- ; MOV DS, AX
- ENDM
-
-
- ifdef Microsoft
-
- DECLARE_EXTRN MACRO X
- EXTRN _&X
- ENDM
-
- DECLARE_PROC_EXTRN MACRO X
- EXTRN _&X:NEAR
- ENDM
-
- START_PROC MACRO X
- _&X PROC NEAR
- ENDM
-
- END_PROC MACRO X
- _&X ENDP
- ENDM
-
- else
- ;DECLARE_EXTRN MACRO X
- ; EXTRN &X
- ; ENDM
- ;DECLARE_PROC_EXTRN MACRO X
- ; EXTRN &X:NEAR
- ; ENDM
- ;START_PROC MACRO X
- ; &X PROC NEAR
- ; ENDM
- ;END_PROC MACRO X
- ; &X ENDP
- ; ENDM
- endif
-
-